package ProxyDto;

##########################
#     OmnibusProxy       #
#    Krzysztof Ulman     #
# Politechnika Krakowska #
#      Kraków 2012       #
##########################

use strict;
use warnings;

#konstruktor
sub new {
	shift;
	my $self = {};
	bless $self;
	
	return $self;	
}

sub getId {
	my $self = shift;	
	return $self->{id};
}

sub setId {
	my $self = shift;	
	my $id = shift;
	$self->{id} = $id;
}

sub getAddress {
	my $self = shift;
	return $self->{address};
}

sub setAddress {
	my $self = shift;
	my $address = shift;
	$self->{address} = $address;
}

sub getPort {
	my $self = shift;
	return $self->{port};	
}

sub setPort {
	my $self = shift;
	my $port = shift;
	$self->{port} = $port;	
}

sub getState {
	my $self = shift;
	return $self->{stateVar};
}

sub setState {
	my $self = shift;	
	my $stateVar = shift;
	$self->{stateVar} = $stateVar;
}

sub getHidesRealIp {
	my $self = shift;	
	return $self->{hidesRealIp};
}

sub setHidesRealIp {
	my $self = shift;	
	my $hidesRealIp = shift;
	$self->{hidesRealIp} = $hidesRealIp;
}

sub getLastChecked {
	my $self = shift;	
	return $self->{lastChecked};
}

sub setLastChecked {
	my $self = shift;	
	my $lastChecked = shift;
	$self->{lastChecked} = $lastChecked;
}

sub getInfo {
	my $self = shift;
	return $self->{info};	
}

sub setInfo {
	my $self = shift;
	my $info = shift;
	$self->{info} = $info;
}

1;